function [discount,beca,stipend] = u44_2012(math,lang,private,demrecode,price,ref)
%% Universidad del Desarrollo
lm=(math+lang)/2;
stipend=zeros(size(lm,1),1);

%Beca socioeconomica
beca=(price-ref)*((lm>=475).*(private==0));

%Beca socioeconomica sobre 700
discount=((lm>=700).*(private==0));

%BVP
if (demrecode==44011 || demrecode==44012)
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end
end
